-- background: 2608 from stack: in
-- bmap block id: 3757
-- flags: 0000
-- background id: 0
-- name: MailCard
----- HyperTalk script -----
on openCard
  if bkgnd field id 10 is not empty then
    set the rect of bkgnd field 1 to 11,58,502,187
    show bkgnd field id 10
    show bkgnd button id 11
    show bkgnd button id 13
    show bkgnd button 9
  end if
end openCard



-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=11 top=58 right=307 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Letter


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=345 top=12 right=30 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=45 top=35 right=53 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RE


-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=195 top=309 right=331 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kill This Mail
----- HyperTalk script -----
on mouseUp
  domenu "Delete Card"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=120 top=310 right=328 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left
----- HyperTalk script -----
on mouseUp
  set the rect of bkgnd field 1 to 11,58,502,307
  hide bkgnd field id 10
  hide bkgnd button id 11
  hide bkgnd button id 13
  hide bkgnd button id 14
  go to previous
  if bkgnd field 1 is empty then
    go to previous
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=156 top=310 right=328 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
  set the rect of bkgnd field 1 to 11,58,502,307
  hide bkgnd field id 10
  hide bkgnd button id 11
  hide bkgnd button id 13
  hide bkgnd button id 14
  go next
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=83 top=310 right=328 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start
----- HyperTalk script -----
on mouseUp
  set the rect of bkgnd field 1 to 11,58,502,307
  hide bkgnd field id 10
  hide bkgnd button id 11
  hide bkgnd button id 13
  hide bkgnd button id 14
  doMenu "Compact Stack"
  go to first card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=14 top=311 right=329 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=381 top=309 right=331 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write/See Reply
----- HyperTalk script -----
on mouseUp
  set the rect of bkgnd field 1 to 11,58,502,187
  show bkgnd field id 10
  show bkgnd button id 11
  show bkgnd button id 13
  show bkgnd button 9
end mouseUp



-- part 10 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=11 top=187 right=307 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Reply
----- HyperTalk script -----
on openCard
  hide me
end openCard



-- part 11 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=280 top=13 right=29 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send to:
----- HyperTalk script -----
on mouseUp
  --process reply
  push card
  set lockscreen to true
  get bkgnd field 2
  show msg
  put it into userID
  put "Looking for user ID information..."
  go to first card
  if userID is not in card field 3 then
    put "ID for this person is not present." into msg
    pop card
    set the lockscreen to false
    repeat for 5000
    end repeat
    hide msg
    exit mouseUp
  end if
  put "ID info found -- Loading parameters" into msg
  put 1 into lineNr
  repeat for the number of lines in card field 3
    if userID contains line lineNr of card field 3 then
      get line lineNr of card field 4
      put it into temp
      put card field 2 & ":" & temp into destination
      get card field 7
      put it into myID
      put ":" & myID after destination
      add 1 to line lineNr of card field 9
      if line lineNr of card field 9 > 90 then
        put 1 into line lineNr of card field 9
      end if
      get line lineNr of card field 9
      put ".N" & it after destination
      pop card
      put "Sending mail..." into msg
      open file destination
      write bkgnd field 3 to file destination
      write return & "
      " to file destination
      write return & "
      " to file destination
      repeat with lnCount =1 to the number of lines in bkgnd field 4
        write line lnCount of bkgnd field 4 & return & "
        " to file destination
      end repeat
      close file destination
      put "Mail sent." into msg
      push card
      go to first card
      get card field 8
      pop card
      StdFile(it)
      set lockscreen to false
      hide msg
      exit repeat
      --reset screen
      hide bkgnd button id 13
      hide bkgnd field id 10
      hide bkgnd button 9
      hide me
      exit repeat
    end if
    add 1 to lineNr
  end repeat
  hide bkgnd field id 10
  set the rect of bkgnd field 1 to 11,58,502,307
  hide bkgnd button id 11
  hide bkgnd button id 13
  hide bkgnd button 9
end mouseUp



-- part 13 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=196 top=309 right=331 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel/Clear
----- HyperTalk script -----
on mouseUp
  set the rect of bkgnd field 1 to 11,58,502,307
  put empty into bkgnd field id 10
  hide bkgnd button id 11
  hide bkgnd field id 10
  hide me
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=296 top=309 right=331 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Reply
----- HyperTalk script -----
on mouseUp
  set the rect of bkgnd field 1 to 11,58,502,307
  hide bkgnd field id 10
  hide bkgnd button id 11
  hide bkgnd button id 13
  hide me
end mouseUp



-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=413 top=12 right=29 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UserID